home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / copycomb / ccdemo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-10-19  |  1.9 KB  |  57 lines
  1. VERSION 5.00
  2. Object = "{4A6838E0-0CF9-11D2-9098-006097338A58}#1.1#0"; "CCOM.DLL"
  3. Object = "{02B5E320-7292-11CF-93D5-0020AF99504A}#1.0#0"; "MSCHART.OCX"
  4. Begin VB.Form Form1 
  5.    BackColor       =   &H00C0C0C0&
  6.    Caption         =   "Eckler CopyCom Demo"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   4680
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin MSChartLib.MSChart MSChart1 
  16.       Height          =   1815
  17.       Left            =   240
  18.       OleObjectBlob   =   "ccdemo.frx":0000
  19.       TabIndex        =   1
  20.       Top             =   240
  21.       Width           =   4095
  22.    End
  23.    Begin VB.CommandButton Command1 
  24.       Caption         =   "Copy Chart"
  25.       Height          =   615
  26.       Left            =   2280
  27.       TabIndex        =   0
  28.       Top             =   2280
  29.       Width           =   2175
  30.    End
  31.    Begin CCOMLibCtl.CopyCom CopyCom1 
  32.       Left            =   720
  33.       OleObjectBlob   =   "ccdemo.frx":2350
  34.       Top             =   2400
  35.    End
  36. Attribute VB_Name = "Form1"
  37. Attribute VB_GlobalNameSpace = False
  38. Attribute VB_Creatable = False
  39. Attribute VB_PredeclaredId = True
  40. Attribute VB_Exposed = False
  41. Option Explicit
  42. Private Sub Command1_Click()
  43. Dim i As Integer
  44.    'Create a gif copy with tranparent background.
  45.    CopyCom1.Type = 1
  46.    Call CopyCom1.CopyCom(MSChart1.Object, "c:\copycom.gif")
  47.    'Create a bitmap copy.
  48.    CopyCom1.Type = 2
  49.    Call CopyCom1.CopyCom(MSChart1.Object, "c:\copycom.bmp")
  50. End Sub
  51. Private Sub Form_Load()
  52.    'Set backgroud to white for 16 & 24 bit displays, not needed for 256 color displays.
  53. '   MSChart1.Backdrop.Fill.Style = VtFillStyleBrush
  54. '   MSChart1.Backdrop.Fill.Brush.FillColor.Set &HC0, &HC0, &HC0
  55. '   CopyCom1.BgColor = &HFFFFFF
  56. End Sub
  57.